Option Explicit

On Error Resume Next

ExcelMacroExample

Sub ExcelMacroExample() 

  Dim xlApp 
  Dim xlBook 

  Set xlApp = CreateObject("Excel.Application") 
  xlApp.DisplayAlerts = False
  Set xlBook = xlApp.Workbooks.Open("\\CVGFNP004\Cincinnati\Home\mydocs\GAI\XML Studio\Menus\XMLStudio_MenuData.xlsm", 0, True) 
  xlApp.Run "ExportMenuScript"
  xlApp.Quit 

  Set xlBook = Nothing 
  Set xlApp = Nothing 

End Sub 